(pmail-get-summary-labels): If no attribute headers are found, use the

empty string.

diff --git a/lisp/mail/pmailsum.el b/lisp/mail/pmailsum.el
index 0fed20e2e5cb61336aa62fe9335af5ad94ee0f06..ce72701390efaac0737b9fc0265cb612c328bfbd 100644 (file)
--- a/lisp/mail/pmailsum.el
+++ b/lisp/mail/pmailsum.el
@@ -362,7 +362,10 @@ the message being processed."
        char)
     ;; Strip off the read/unread and the deleted attribute which are
     ;; handled separately.
-    (setq status (concat (substring status 0 1) (substring status 2 6)))
+    (setq status
+         (if status
+             (concat (substring status 0 1) (substring status 2 6))
+           ""))
     (while (< index (length status))
       (unless (string= "-" (setq char (substring status index (1+ index))))
        (setq result (concat result char)))